home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / pgs3ef.lha / 3.0fUpdate / Install-PageStream3.0f < prev   
Encoding:
Text File  |  1995-02-09  |  3.1 KB  |  85 lines
  1. ;PAGESTREAM 3.0f ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND EVERYTHING EXISTS
  5. (set PGSdest (getassign "PageStream3" "a"))
  6. (set SLdest (getassign "SoftLogik" "a"))
  7. (if (OR (= PGSdest "") (= SLdest ""))
  8.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
  9. )
  10. (set @default-dest PGSdest)
  11. (if (<> (exists "PageStream3:PageStream3") 1)
  12.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
  13. )
  14. (if (<> (exists "SoftLogik:Libs") 2)
  15.     (makedir "SoftLogik:Libs" (infos))
  16. )
  17. (if (<> (exists "SoftLogik:Engines") 2)
  18.     (makedir "SoftLogik:Engines" (infos))
  19. )
  20. (if (<> (exists "SoftLogik:Printers") 2)
  21.     (makedir "SoftLogik:Printers" (infos))
  22. )
  23. (if (<> (exists "SoftLogik:Filters") 2)
  24.     (makedir "SoftLogik:Filters" (infos))
  25. )
  26. (if (<> (exists "SoftLogik:Effects") 2)
  27.     (makedir "SoftLogik:Effects" (infos))
  28. )
  29. (if (<> (exists "SoftLogik:Special") 2)
  30.     (makedir "SoftLogik:Special" (infos))
  31. )
  32. (if (<> (exists "PageStream3:Help") 2)
  33.     (makedir "PageStream3:Help" (infos))
  34. )
  35. (if (<> (exists "PageStream3:Macros") 2)
  36.     (makedir "PageStream3:Macros" (infos))
  37. )
  38.  
  39. ;CHECK VERSIONS INSTALLED
  40. (working "Checking version of current PageStream3...")
  41. (makedir "env:PageStream3")
  42. (run "version PageStream3:PageStream3 full >env:PageStream3/temp")
  43. (set PGSver (substr (getenv "PageStream3/temp") 13 3))
  44. (if (= PGSver "d v")
  45.     (abort "There is insufficient memory to install this patch. Refer to the Read.1st! file for instructions.")
  46. )
  47.  
  48. ;COPY THE LHEX PROGRAM TO RAM:
  49. (copyfiles
  50.     (source "PageStream3Disk1:lhex")
  51.     (dest "ram:")
  52.     (nogauge)
  53. )
  54.  
  55. ;DO THEY HAVE 3.0e?
  56. (if (<> PGSver ".0e")
  57.     (abort "You have downloaded the 3.0e to 3.0f patch, but you do not have 3.0e installed on your system!")
  58. )
  59.  
  60. ;UPDATE PAGESTREAM3
  61. (working "Decompressing PageStream3.0f patch...")
  62. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  63. (delete "PGSpatch.LHA" (safe))
  64. (working "Patching PageStream to 3.0f...\n\nThis will take about one minute.")
  65. (run "spatch >NIL: <NIL: -oPageStream3:PageStream3.0f -pram:PageStream3.pch PageStream3:PageStream3")
  66. (if (exists "PageStream3:PageStream3.0f")
  67.     (
  68.         (delete "PageStream3:PageStream3")
  69.         (rename "PageStream3:PageStream3.0f" "PageStream3:PageStream3")
  70.     )
  71.     (abort "Patch was not successful. Cause was probably lack of RAM, a bad disk, or an incorrect version of PageStream3. Refer to the Read.1st! file for instructions.")
  72. )
  73. (delete "ram:PageStream3.pch" (safe))
  74.  
  75. ;QUICKIE README
  76. (message "\n\nCHANGES IN VERSION 3.0f\n\nThis update fixes the load/save crash problem with 3.0e; documents containing groups or drawings could not be loaded or saved.\n\nThe only other difference with this version is that you can double click with the Text tool to select a word, and triple click to select a paragraph.")
  77.  
  78. ;REMOVE THE LHEX PROGRAM
  79. (delete "ram:lhex" (safe))
  80. (delete "spatch" (safe))
  81. (delete "Install-PageStream3.0f.info" (safe))
  82.  
  83. ;GEE, THAT WAS FUN
  84. (exit "PageStream 3.0f installed!")
  85.